Voorbeeld van de functie CVErr

Dit voorbeeld maakt gebruik van de functie CVErr om een Variant te geven waarvan het VarType gelijk is aan vbError (10) is. De door de gebruiker gedefinieerde functie CalculateDouble geeft een fout als het ingevoerde argument geen getal is. Met behulp van CVErr kunt u door de gebruiker gedefinieerde fouten als resultaat geven op basis van door de gebruiker gedefinieerde procedures of de afhandeling van een fout tijdens de uitvoering uitstellen. Gebruik de functie IsError om te controleren of de waarde een fout aangeeft.

' Call CalculateDouble with an error-producing argument.
Sub Test()
    Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
    If IsNumeric(Number) Then
        CalculateDouble = Number * 2    ' Return result.
    Else
        CalculateDouble = CVErr(2001)    ' Return a user-defined error
    End If    ' number.
End Function